G:\Shared drives\MRDC Documents\Website\mrdcl-learning.com\mrdcl_files\DAT-111\data.stp
start data,
card characters binary 201,
order 1234567890VX,
if $xierr/n0, goto finish,
f=nwfs,
f=anf/adf,
f=ifbu,
di $IOBS = $1-5,
  xt='Serial Number',
di $IWAVE = $6-6,
  xt='Wave ID',
ds $GENDER = $7-7/1-2,
  xt='Gender',
   x='Male;
      Female',
ds $REGION = $8-8/1-3,
  xt='Region',
   x='North;
      Central;
      South',
ds $Q3 = $9-10/1-14,
  xt='Q3. Business location',
   x='UK;
      USA;
      France;
      Germany;
      Italy;
      Spain;
      Other Europe;
      Thailand;
      Malaysia;
      China;
      Other Asia;
      Australia;
      Hong Kong;
      Not given',
ds $Q5 = $11-12/1-12,
  xt='Q5. Industry Type',
   x='Computing/IT;
      Law/legal;
      Market research;
      Retail;
      Marketing/Advertising;
      Accountancy;
      Administration;
      Healthcare;
      Building/Architecture;
      Education;
      Engineering;
      Not given',
di $Q6 = $13-15,
  xt='Q6. Number of employees at business',
ds $VQ6 = $Q6/1..50,   $Q6/51..100,   $Q6/101..200,   $Q6/>200,
  xt='Q6 in ranges',
   x='1..50;
      51..100;
      101..200;
      >200',
di $Q7A = $17-19,
  xt='Q7. Age of company',
di $Q7B = $21-22,
  xt='Q7. Age of employee',
di $VQ7TOT = $q7a+$q7b,
  xt='Sum of Q7A and Q7B',
ds $Q8 = $24-25/1-31,
  xt='Q8. Last business Travel destination',
   x='UK;
      France;
      Germany;
      Belgium;
      Italy;
      Spain;
      Portugal;
      Scandinavia;
      Eastern Europe;
      Other Europe;
      USA;
      Canada;
      Central America;
      Brazil;
      Argentina;
      Other South America;
      Middle East;
      Thailand;
      Singapore;
      Malaysia;
      Japan;
      China;
      Indonesia;
      India;
      Other Asia;
      South Africa;
      Other Africa;
      Australia;
      New Zealand;
      Other;
      Not given',
dm $Q9 = $26/1,$27/1,$28/1,$29/1,$30/1,$31/1,
  xt='Q9. Main factors influencing method of travel',
   x='Cheap price;
      Reliable service;
      Punctuality;
      High standards;
      Quickest way;
      Not given',
di $CTQ9 = ct($q9),
  xt='Count of Q9',
ds $VQ9 = $CTQ9/0,   $CTQ9/1,   $CTQ9/2,   $CTQ9/3..4,   $CTQ9/>4,   e,
  xt='Number of answers at Q9',
   x='No answer;
      1 answer;
      2 answers;
      3-4 answers;
      >4 answers;
      Reject',
di $Q10 = $32-33,
  xt='Q10. Time taken to reach destination',
ds $Q11 = $35-35/1-6,
  xt='Q11. Ease of journey',
   x='A very relaxing journey (1);
      A relaxed journey (2);
      Neither relaxing nor stressful (3);
      Quite stressful (4);
      Very stressful (5);
      Not given',
ds $Q12A = $36-36/1-6,
  xt='Q12. Factors determine methods used to travel : Speed of booking',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12B = $37-37/1-6,
  xt='Q12. Factors determine methods used to travel : Ease of booking',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12C = $38-38/1-6,
  xt='Q12. Factors determine methods used to travel : Speed of journey',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12D = $39-39/1-6,
  xt='Q12. Factors determine methods used to travel : Journey comforts',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12E = $40-40/1-6,
  xt='Q12. Factors determine methods used to travel : Cost of Journey',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12F = $41-41/1-6,
  xt='Q12. Factors determine methods used to travel : Destination',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
ds $Q12G = $42-42/1-6,
  xt='Q12. Factors determine methods used to travel : Weather',
   x='Very important (5)<v5.0>;
      Quite important (4)<v4.0>;
      Neither important or unimportant (3)<v3.0>;
      Quite unimportant (2)<v2.0>;
      Very unimportant (1)<v1.0>;
      Not given',
dm $Q12SUM = T,   T,   T,   T,   T,   T,   T,
  xt='Q12 Summary',
   x='Q12a;
      Q12b;
      Q12c;
      Q12d;
      Q12e;
      Q12f;
      Q12g',
ds $Q13 = $50-50/1-3,
  xt='Q13. Whether experienced any delays',
   x='Yes;
      No;
      Not given',
ds $Q14 = $51-51/1-9,
  xt='Q14. Duration of delays',
   x='Up to half and hour;
      An hour;
      Two hours;
      Three hours;
      Four hours;
      Five hours;
      Six hours;
      Over six hours;
      Not given',
ds $Q15 = $52-52/1-3,
  xt='Q15. Would you use this means of travel again?',
   x='Yes;
      No;
      Not given',
dm $Q16 = $101-102*8/1-8,
  xt='Open ended question',
   x='Red box;
      Green box;
      Yellow box;
      Best product;
      Good product;
      Best available;
      Red logo;
      Green logo',
dm $BANNER1 = $GENDER/1,   $GENDER/2,   $REGION/1..2,   $REGION/1,   $REGION/2,
   $REGION/3,   $Q12A/1..2,   $Q12A/3,   $Q12A/4..5,   $Q12A/5,
  xt='Banner',
   x='GENDER\Male (a);
      Female (b);
      REGION\North/Central (c);
      North (d);
      Central (e);
      South (f);
      Q12A\Important (g);
      Neither (h);
      Unimportant (j);
      Very unimportant (k)',
dm $BANNER2 = $BANNER1/1,   $BANNER1/2,   $BANNER1/3,   $BANNER1/4,
   $BANNER1/5,   $BANNER1/6,   $BANNER1/7,   $BANNER1/8,   $BANNER1/9,
   $BANNER1/10,   $Q12B/1..2,   $Q12B/4..5,
  xt='Banner2',
   x='GENDER\Male;
      Female;
      REGION\North/Central;
      North;
      Central;
      South;
      Q12A\Important;
      Neither;
      Unimportant;
      Very unimportant (1);
      Q12B\Important;
      Unimportant',
dm $MYVAR = $REGION/1.$GENDER/1.$Q12A/1..2,   $Q3/1+$Q5/2,   $Q3/n2..5.$Q5/nb,
   $Q3/1.$Q5/1,
  xt='My variable',
   x='North Male Very important (5)..Quite important (4);
      UK Law/legal;
      NOT USA..Italy NOT b;
      UK Computing/IT',
di $SC3 = 3,
  xt='score of 3',
di $SC2 = 2,
  xt='score 2',
finish data,
start tables,
if $gender/1,dw $weight=10,
if $gender/2,dw $weight=0.1,
select wr $weight,
!!f=ess/shg1/sig3,
f=shg1/sig3,
f=shg0/sig1/sla80/slb90,
t#1=$q12a * $banner1,
finish tables,
